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ILLUSTRATION 3 

PROGRAM DOCUMENTATION - GIMPUNCH 


This program provides a backup method for obtaining all completed 
data base update statements for a given history tape and for one 
specified data base* The program selects a 1 1 transactions for 
the data base, sorts the selected records, and processes them into 
two output filess 


SYSPRINT - A listing of data pertaining to all type 0 
records for the data bases. When an 
asterisk (*) appears in the column UPD 
FLG, it indicates that this was a completed 
update statement. 

GIMPNCH - A series of 80-byte records containing the 
entire completed update statements. Each 
statement is contained in at least one 
record and often is contained in a series 
of records. Where possible, the original 
transaction number of the statement is 
contained in byte 73-80 of the last record 
of the statement. 

The selection of the data base is controlled by a 
parameter to the program. It is in the EXEC card of the 
JCL file. Sample JCL is attached. 


* 


Approved For Release 2001/05/23 : CIA-RDP84-00933R0003001 2001 2-5 


ILLUSTRATION 3 (COV'D ) 
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/ / PU NCH 
//JOB LI 3 
//GIMP UN 

//SYSPRINT CD S YS 0UT = A, r»C B= ( R ECFM= FBA , LR ECL = 1 B LK S IZ C - 1 331 
/ /G I MUJ ST an UNn=2400,0ISP=(0LD,K=EP), BLKSIZ, -133) 

// V0L = SFR= 123456, ~ ~ 


JOB JO £- CAR D- ACCOUNT IMG- INF OR M A TI ON 

DO OSN=GI M2 . LOAD ,OIS P=S HR 

- X ~ C PGf -~GT MPUNCHt P APMs 'REPORT /5* , REG I 0N=120K 


THC MIMR C R FOLLOW ING ’REPORT/' IS THE 


DATA BASE NUMBER 


// 

//GI MPNCH 
//SYS OUT 
//SOFTLT B 
//SORT I M 

// 

// 

//SDR TOUT 

// 

// 

//SCRTWKO I 
//SPPTWK02 
//SOP TKK 0 3 
//S UPTWK04 
//SOP TWK05 
//SORTWK06 


DS N=H 1ST ORY 1 

OP SYSCUT = B ,DCB= (RFCEM = FB ,*LRECL=80 »BLKSIZE=80) 
CD SYSOUT=A 

DC CS N = S Y S 1 . S 0 P T l 18, D I S P =S HR 

on UNI T=SYSOA » D SN=f. £ SR TI N, PI SP= ( NE W • P ASS ) , 

SPACF=(CYL ,( 10, 3), RLSE), 

DCB = { R r CF M=V R , LR EC L -350 b , BLKS I Z c = 3 512 ) 

00 UN I T- SYSO A fO SN=GG SB. TOUT , DI S P= ( N E W , P A SS J , 

>PACr=(CYL, (10, 3 ), PLSEJt 

OCB = ( R E C F M = V D ,LR C CL=3508 , R L KS I Z E=3 5 12 ) 


on 

be 

no 

DC 

on 

nn 


UN I T= SYS DA, SPACE*! C YL,( 5,3) ,RLSE) 
U N IT =S Y S D A, $ P A c E= ( CY L , ( 5 , 3 ) , R LS E ) 

UN I T= S Y C D A , SPACE =( C Y L , ( 5 ,3 ) ,RLS E) 
I.JM TT= SYS DA , SP AC E = ( C YL , ( 5, 3) ,RLSF) 
L'N T T = SY SDA »S P - A CF = { CY L , (5,3), RLSE) 
UNI T=SYSDA , SPACE =( C Y L , ( 5,3) , RLSE ) 
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